1 FORI=0TO7:READA$:POKE#BFE0+1,VAL("#"+A$):NEXT:DOKE#24B,#BFE0:POKE#24A,#4C
2 CLOAD"":DATA48,A9,00,8D,AD,02,68,40